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FFFFFFFFFRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTTT LLet 
FFFFFRFFRRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTFT Lie 
FFFFFRFRRRFFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTITTTTTTTT §=LtL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFE 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 

FFF 000 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR = =RRR TTT LLL 

FFF 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 0 000 RRR RRR RRR RRR TTT LLL 

FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLELLLLLLLLLL 
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FFFFFFFFFE 000000 RRRRRRRR RRRRRRRR EEEEEEEEEE ABAAAA DDDDDDDD KK KK UU UU 
FFFFFFFFFF 000000 RRRRRRRR RRRRRRRR EEEEEEEEEE AAAAAA DDDDDDDD KK KK UU UU 
FF 00 00 RR RR RR RR EE Ab AA 0D DD KK KK UU UU 
FF 00 RR RR RR RR EE AA AA DD DD KK KK UU UU | 
FF 00 00 RR RR RR RR EE AA AA 0D DD KK KK UU UU | 
FF 00 00 RR RR RR RR EE AA AA 0D DD KK K UU UU 
FFFFFFFF 00 O00 RRRRRRRR RRRRRRRR EEEEEEEE AA AA 0D DD KKKKKK UU UU 
FFFFFFFF 00 00 RRRRRRRR RRRRRRRR EEECEEEE AA AA 0D DD KKKKKK UU UU 
FF 00 00 RR RR RR RR EE AAAAAAAAAA DD DD KK KK UU UU 
FF 00 OO RR RR RR RR EE AAAAAAAAAA CD DD KK KK UU UU 
FF 00 RR RR RR RR EE AA AA DD DD KK KK UU UU ceee 
FF 00 00 RR RR RR RR EE AA AA DD DD KK KK UU UU coe 
FF 000000 RR RR RR RR EEEEENECEE AA AA DDDDDDDD KK KK UUUUUUUUUU eee 
FF 006000 RR RR RR RR EEEEEECEEE AA AA DDDDDDDD KK KK UUUUUUUUUU cows 
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-TITLE FORSREAD_KU = entry point for FORTRAN READ yyy. NF ORMATTED 
SIDENT §/1-011/ ~ File: FORREADKU.MAR Edit: JAW101 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED 


0 

N ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH 

ION OF THE ABOVE ogpithod NOTICE, THIS SOF FTWARE OR ANY OTHER 
HEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 

PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eoepokaT ion NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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; ABSTRACT: 


This module contains the entry point for the FORTRAN 
READ KEYED UNFORMATTED 1/0 statement. It is simp ply 

a call to FORS$$I0_BEG with bits in RO which describe the 
sareneter List. FORSS$IO_BEG interprets the parameters. 


; MAINTENANCE NOTE: 
The transfer vector (RTLVECTOR+ALLGBL) must have the following: 
- TRANSFER FORSREAD_KU 
. MASK FORS$$10_BEG 
BRW FORSREAB_kKU+2 


This puts the correct mask in entry vector, that is FORSS$IO_BEG entry mask. 
Furthermore this module must only use RO and R 
since any other register might not be in the entry mask for FORS$$I0_BEG. 
; ENVIRONMENT: User access mode; mixture of AST Level or not 
; AUTHOR: Richard B. Grove, CREATION DATE: 28-May-78 


; ; MODIFIED BY: 
T. Hastings, 29-July-78 


PWN CODA UNE WIN 9 ODNAUE WN (OOO NAU EWN O OONOUE WN OOONOUS Wh 


¥ FACILITY: FORTRAN Support Library - user callable 


PUPS BS BB BB EEE EAA NMNAI NINA AIA PPPS N NUNN 2 OO Os oo 
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1-011 


= ent 
HISTO ; Detailed Current Edit History 6-SEP-1 FORRTL.SRCJFORREADKU.MAR; 1 


-SBTTL HISTORY ; Detailed Current Edit History 


point for FORTRAN READ KEVED UNF V3-$6B-1986 23:38:36 YAX/ Vis Macro V04-00 Page i, er 


NO 


Edit History for Version 1 


Add comment about vectors. TNH 23-June-78 

Pass arg in RO, not ROR, add comments. TNH 29-July-78 
Update version number and copyright notice. JBS 16-NOV-78 
Change statement type symbols to be LUBSK... JBS 07-DEC-78 
rhange, statenent t pe symbols to be ISBSK..._ JBS 11-DEC-78 


“KE, FORSREAD_KO, FORSREWRITE SF, FORSREWRITE_SO, 
FORSREAD_IF, FORSREAD_10, FORSWRITE_IF, FORSWRITE_10, 
FORSREAD_KU, _FORSREWRITE_SU, 


Remove all entry petore that need object time formatting, 
= them in FORSENTRY_OBJ so that we can arrange to 
oad the format compiler only when it is needed. 
JBS 26-JUN-1979 
1-007 = Remove entry point FORSENCODE_MF; we will code a new module 
for it and FORS$$I0_BEG, to see how much I/0 initiation time 
improves. JBS 02-JUL-1979 
1-008 - Do Likewuse for FORSREAD_DU and FORSWRITE_DU. JBS 03-JUL-1979 
1-009 - Remove all entry points except FORSREAD_KO; each of the 
others gets its own module so we can pot eet vey load 
the necessary UDF and REC modules. JB -JUL-1979 
0 - New parameter format for FORS$$IO_BEG. SBL 5-Dec-1979 
1 = Change BRW FORS$I10_BEG+2 to JMP G*FORS$I10_BEG+2. JAW 21-Feb-1981 
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DECLARATIONS 6-SEP-1984 Reabe oe 


V04 
FORRTL.SRCJFORREADKU.MAR; 1 
~SBTTL DECLARATIONS 


INCLUDE FILES: 


SFORPAR ; Define inter-module FORTRAN symbols 
SISBDEF ; Define statement type symbols 


! EXTERNAL SYMBOLS: 


dS ; Declare all external symbols 


-DSABL GBL 
-EXTRN FORS$IO_BEG ; common I/0 statement processing 


i 
8 
89 
90 
4 
38 
94 
a2 
39 
98 
99 
100 ;+ 
101 ; The yy references are to make sure the necessary UDF and REC 
136 : modules are loaded. These are the routines which are called through 
137 3; the dispatch tables in FORSSDISPAT. 
0000 8 105 -EXTRN FORSSUDF_RUO, FORSSUDF_RU1, FORSSUDF RUD 
sit 136 ~EXTRN FORSSREC_RKUO, FORSSREC_RKU1, FORSSREC_RKU9 
0000 108; 
0000 109 ; MACROS: 
0000 110; 
0000 111; NONE 
0000 16 3 
0000 113 ; PSECT DECLARATIONS: 
0000 114 ; 
0000 115 
voit 1 118 -PSECT _FORSCODE PIC,USR,CON,REL,LCL,SHR,EXE,RD,NOWRT,LONG 
0000 118; 
0000 119 ; EQUATED SYMBOLS: 
0000 120; 
0000 121 
0000 1s 
0000 1 : 
0000 124 ; OWN STORAGE: 
0000 125; 
0000 126; NONE 
0000 127 ; 
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~SBTTL FORSREAD_KU = READ KEYED UNFORMATTED 
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MAINO 


++ 
FUNCTIONAL DESCRIPTION: 


Initialize the FORTRAN I/0 system to perform 
a READ KEYED UNFORMATTED I/0 statement. 


CALLING SEQUENCE: 


CALL FORSREAD_KU (unit.rl.v, 
key.rx.dx, oe hy caged match.rl.v 
PF be 


, err_adr.j. end_adr.j.rJJ) 
INPUT PARAMETERS: 

unit.rl.v Logical unit number 

key .rx.dx the key of the record to be read 
keyid.rl.v the number of the 7 
match.rl.y code for how to match (EQL, GEQ, GTR) 
pee Se optional ERR= address 

end_adr.j.rJ optional END= address 


; IMPLICIT INPUTS: 
NONE except those used by FORS$$I0_BEG. 
OUTPUT PARAMETERS: 
: NONE 
; IMPLICIT OUTPUTS: 
NONE except those left by FORS$SIO_BEG. 
; COMPLETION CODES: 
; NONE 
SIDE EFFECTS: 
NONE except those of FORSSI0_BEG. 
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FORSREAD_KU:: -MASK  FORSSIO BEG 
MOVZBL #ISBSK_ST_TY_RKO, RO ; Statement type 
JMP G*FORS$$S10_BEG+2 ; branch past call mask 


000" 
00000002"GF 17 


SDOOSDSDOSOSOSOSCODSOSOSSODSDOOCODDOOOODOOOODOO OOOO OCOOOOOCOOOCOOCOOCO 
SOSCOSSSSSSSOSSSSSSSSSSSSSOOSOSOOOOOOOSOOOCOOOOOOOOOOOOCO 
Sesscesssesssesssssssssssssssssssssssssssssssssssss 

DDANVISSSSSSSSSSSSSSSSSSSSSSSSSOSSSSOSOSOSSSSOSSSSSSOSOSOSCOS 
a ce a ee ee ee ee ee ee ed od od od dD 
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END 
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Symbol table 6-5 FORRTL. SRE Cir ORREADKU.MAR; 1 (4) 1-1 
FORSS$IO_ BEG eerereee =X 
FORS REC RKUO eeeeener x 0 
FORSSREC_RKU1 teeeeeee =X 
FORSSREC_RKU9 aeeeeeee =X 
FORSSUDF _RU aeeerere KX 90 
FORSSUDF—RU1 aeeeeere =X 00 
FORSSUDF _RU9 aeeeeeere =X 00 
FORSREAD_KU 00000000 RG 01 
ISBSK_ST_TY_RKU = 00000010 
dame macnn wom a aene + 
! ;_Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
— 2S ; 00000000 < 0.) OO ¢ O.) NOPIC USR CON ABS~ LCL wag o> NOEXE NORD NOWRT NOVEC BYTE 
_F ORSCODE 0000000B ( = £m PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 


eweeeceeeseecceses= 


Phase Page faults CPU Time Elapsed Time | 

Initialization 32 00:00:00.09 00:00:01.00 
ponnens processing 137 00:00:00.66 00:00:04.48 
124 00:00:01.24 00:00:04.78 
Synbol table sort 0 00:00:00.17 00:00:00.70 
s 2 47 00:00:00.46 00:00:01.55 
ond table output 3 00:00:00.02 00:00:00.02 
Psect synopsis output 2 00:00:00.02 00:00:00.02 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 347 00:00:02.68 00:00:12.57 


The working set Limit was 900 pages. 

6691 bytes (14 pages) of virtual memory were used to buffer the intermediate code. 

ioere were 20 pages of symbol table space allocated to hold 187 non-local and 0 local symbols. 
179 source Lines were read in Pass 1, produc ing 8 object records in Pass 2. 

9 pages of virtual memory were used to define 2 macros. 


Gowesceoecsoeseoeooseoosores$ 


Macro library name Macros defined 
“$255$DUA28: CFORRTL.OBJIJFORRTL. M8: 1 3 
“$255$DUA28:(SYSLIBISTARLET.MLB; 

TOTALS (all Libraries) 2 


183 GETS were required to define 2 macros. 
There were no errors, warnings or information messages. 
MACRO/ENABLE=SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:FORREADKU/OBJ=OBJ$:FORREADKU MSRC$:FORREADKU/UPDATE=(ENHS$:FORREADKU) +Li | 
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